object FormMain: TFormMain
  Left = 106
  Top = 118
  Width = 562
  Height = 476
  ActiveControl = memoConnectionParams
  Caption = 'Interrupt SQL demo'
  Color = clBtnFace
  Constraints.MinHeight = 476
  Constraints.MinWidth = 562
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    554
    442)
  PixelsPerInch = 96
  TextHeight = 13
  object pageControl: TPageControl
    Left = 6
    Top = 6
    Width = 542
    Height = 436
    ActivePage = tabsheetConnection
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabIndex = 0
    TabOrder = 0
    TabStop = False
    object tabsheetConnection: TTabSheet
      Caption = 'Connection'
      DesignSize = (
        534
        408)
      object labelConnectionParameters: TLabel
        Left = 12
        Top = 12
        Width = 116
        Height = 13
        Caption = 'Connection &parameters:'
        FocusControl = memoConnectionParams
      end
      object labelUserName: TLabel
        Left = 12
        Top = 343
        Width = 55
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = '&User name:'
      end
      object labelPassword: TLabel
        Left = 12
        Top = 373
        Width = 50
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = 'Pass&word:'
      end
      object labelDatabase: TLabel
        Left = 12
        Top = 313
        Width = 50
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = '&Database:'
        FocusControl = editDatabase
      end
      object labelServerVersion: TLabel
        Left = 451
        Top = 344
        Width = 70
        Height = 13
        Alignment = taRightJustify
        Anchors = [akRight, akBottom]
        Caption = 'Not connected'
      end
      object memoConnectionParams: TMemo
        Left = 12
        Top = 30
        Width = 509
        Height = 261
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          'InformixServer=;'
          'Fet_Buf_Size=32767;'
          'OptOFC=1;'
          'AutoCommit=True;'
          'BlobSize=-1;'
          'WaitOnLocks=False;'
          'CommitRetain=False;'
          'IsolationLevel=ReadCommitted;'
          'Trim Char=False;'
          'lvarchar=string')
        TabOrder = 0
      end
      object buttonConnect: TButton
        Left = 368
        Top = 309
        Width = 75
        Height = 24
        Action = actionConnect
        Anchors = [akRight, akBottom]
        TabOrder = 4
      end
      object buttonDisconnect: TButton
        Left = 446
        Top = 309
        Width = 75
        Height = 24
        Action = actionDisconnect
        Anchors = [akRight, akBottom]
        TabOrder = 5
      end
      object editUserName: TEdit
        Left = 96
        Top = 339
        Width = 150
        Height = 21
        Anchors = [akLeft, akBottom]
        TabOrder = 2
      end
      object editPassword: TEdit
        Left = 96
        Top = 369
        Width = 150
        Height = 21
        Anchors = [akLeft, akBottom]
        TabOrder = 3
      end
      object editDatabase: TEdit
        Left = 96
        Top = 309
        Width = 150
        Height = 21
        Anchors = [akLeft, akBottom]
        TabOrder = 1
        Text = 'stores_demo'
      end
    end
    object tabsheetQuery: TTabSheet
      Caption = 'Query'
      ImageIndex = 1
      DesignSize = (
        534
        408)
      object labelSQL: TLabel
        Left = 12
        Top = 256
        Width = 57
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = '&Query text:'
        FocusControl = memoSQL
      end
      object labelDummyProcedure: TLabel
        Left = 12
        Top = 12
        Width = 181
        Height = 13
        Caption = 'Dummy procedure for long execution:'
      end
      object memoSQL: TMemo
        Left = 12
        Top = 276
        Width = 509
        Height = 88
        Anchors = [akLeft, akRight, akBottom]
        Lines.Strings = (
          'execute procedure dummy(1000000)')
        TabOrder = 3
      end
      object buttonExecute: TButton
        Left = 368
        Top = 375
        Width = 75
        Height = 24
        Action = actionExecute
        Anchors = [akRight, akBottom]
        TabOrder = 5
      end
      object buttonInterrupt: TButton
        Left = 446
        Top = 375
        Width = 75
        Height = 24
        Action = actionInterrupt
        Anchors = [akRight, akBottom]
        TabOrder = 6
      end
      object memoDummyProcedure: TMemo
        Left = 12
        Top = 30
        Width = 509
        Height = 187
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          'create procedure dummy (p_count int)'
          ''
          '  define i int;'
          '  define tabname_data char(128);'
          ''
          '  for i = 1 to p_count'
          
            '    select tabname into tabname_data from informix.systables whe' +
            're tabid = 101;'
          '  end for;'
          ''
          'end procedure;')
        ReadOnly = True
        TabOrder = 0
      end
      object checkboxEnableInterruption: TCheckBox
        Left = 12
        Top = 376
        Width = 115
        Height = 17
        Anchors = [akLeft, akBottom]
        Caption = 'enable interruption'
        TabOrder = 4
        OnClick = checkboxEnableInterruptionClick
      end
      object buttonCreateDummy: TButton
        Left = 368
        Top = 232
        Width = 75
        Height = 24
        Action = actionCreateDummy
        Anchors = [akRight, akBottom]
        TabOrder = 1
      end
      object buttonDropDummy: TButton
        Left = 446
        Top = 232
        Width = 75
        Height = 24
        Action = actionDropDummy
        Anchors = [akRight, akBottom]
        TabOrder = 2
      end
    end
  end
  object sqlConnection: TSQLConnection
    ConnectionName = 'InformixLuxenaConnection'
    DriverName = 'INFORMIXLUXENA'
    GetDriverFunc = 'getInformixDriver'
    LibraryName = 'lxdbexpinfpro.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=INFORMIXLUXENA'
      
        'HostName=InformixServer=; Fet_Buf_Size=32767; OptOFC=1; AutoComm' +
        'it=True; BlobSize=-1; WaitOnLocks=False; CommitRetain=False; Iso' +
        'lationLevel=ReadCommitted; Trim Char=False; lvarchar=string'
      'DataBase=stores_demo'
      'User_Name='
      'Password=')
    VendorLib = 'isqlt09a.dll'
    Left = 368
    Top = 11
  end
  object actionList: TActionList
    OnUpdate = actionListUpdate
    Left = 402
    Top = 12
    object actionConnect: TAction
      Caption = '&Connect'
      OnExecute = actionConnectExecute
    end
    object actionDisconnect: TAction
      Caption = '&Disconnect'
      OnExecute = actionDisconnectExecute
    end
    object actionExecute: TAction
      Caption = '&Execute'
      OnExecute = actionExecuteExecute
    end
    object actionInterrupt: TAction
      Caption = '&Interrupt'
      OnExecute = actionInterruptExecute
    end
    object actionCreateDummy: TAction
      Caption = '&Create'
      OnExecute = actionCreateDummyExecute
    end
    object actionDropDummy: TAction
      Caption = '&Drop'
      OnExecute = actionDropDummyExecute
    end
  end
end
